home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 2 / Atari Mega Archive CD - Volume 2.iso / 8bit / cislib_a / head.pas < prev    next >
Pascal/Delphi Source File  |  1995-04-22  |  592b  |  33 lines
  1. PROGRAM Head;
  2. (*
  3.   by Erik C. Warren, 14 January, 1987
  4.   for UPDATE...KYAN's Jan./Feb. issue
  5. *)
  6.  TYPE
  7.      PathString = ARRAY[1..15] OF Char;
  8.   VAR
  9.         fn : PathString;
  10.      nl,lr : Integer;
  11.        inf : Text;
  12. BEGIN
  13.   Write('head file : ');
  14.     ReadLn(fn);
  15.   Write('# of lines: ');
  16.     ReadLn(nl);
  17.   Reset(inf,fn);
  18.   Write(inf^);
  19.   FOR lr := 2 TO nl DO
  20.   BEGIN
  21.     Get(inf);
  22.     Write(inf^);
  23.     WHILE NOT EOLn(inf) DO
  24.     BEGIN
  25.       Get(inf);
  26.       Write(inf^)
  27.     END; (* WHILE inf *)
  28.     WriteLn
  29.   END; (* FOR lr *)
  30.   WriteLn;
  31.   WriteLn(nl,' lines typed from ',fn)
  32. END. (* PROGRAM *)
  33.